Attribute VB_Name = "ǿ֢ģ1"
Option Explicit

Sub go_A1()
Dim i%
For i = 1 To ThisWorkbook.Sheets.Count
    Sheets(i).Select
    Range("c3").Select
Next i
Sheets(1).Select
End Sub

Sub setID()
Dim i%, j%, lastRow%
    For i = 2 To ThisWorkbook.Sheets.Count
    Sheets(i).Activate
    lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
        For j = 3 To lastRow
            Cells(j, 1) = j - 2
        Next j
    Next i
End Sub
